home *** CD-ROM | disk | FTP | other *** search
- /************************************************************************************
- P R O J E C T I N F O
- *************************************************************************************
-
- Project Name: Simon
- File Name: FVAL.c
-
- Description: Contains C code specific to the validation code resource
- of a simple file transfer tool.
-
- Copyright © 1992 Apple Computer, Inc.
- All rights reserved.
-
- *************************************************************************************
- A U T H O R I D E N T I T Y
- *************************************************************************************
-
- Initials Name
- -------- -----------------------------------------------
- CH Craig Hotchkiss
-
- *************************************************************************************
- R E V I S I O N H I S T O R Y
- *************************************************************************************
-
- Change History (most recent first):
-
- <0> 5/8/92 CH Creation date
-
- ************************************************************************************/
-
-
-
- /************************************************************************************
- STANDARD Mac HEADERS
- ************************************************************************************/
-
- #ifdef DUMPFILENAME
- #pragma load DUMPFILENAME
- #else
- #define DoNotDump 1
- #include Load.c
- #endif
-
-
-
- /************************************************************************************
- Other dependent HEADERs
- ************************************************************************************/
-
- #ifndef __VALIDATION__
- #include "Validation.h"
- #endif
-
-
-
- /************************************************************************************
- ************************************************************************************/
-
- /************************************************************************************
- Procedure: FVAL
-
- Purpose:
-
- Inputs:
-
- Outputs:
- ************************************************************************************/
- pascal long FVAL( FTHandle toolHandle, short message,
- long p1, long p2, long p3 )
- {
- long retValue = ftNotSupported;
- #if Debugging == 1
- #if DefaultDebug == 1
- Str255 tempString;
- #endif
- #endif
-
-
- #pragma unused ( p1, p2, p3 )
-
- (**toolHandle).errCode = noErr;
-
- switch ( message ) {
- case ftValidateMsg:
- /* *********************
- Parameter Definitions
- *********************
- p1: Unused
- p2: Unused
- p3: Unused
- returns: Boolean true if validation failed
- */
-
- #if Debugging == 1
- #if ShowMessage == 1
- DebugStr( "\p FVAL/ftValidateMsg received.;g" );
- #endif
- #endif
-
- if ( noErr == ( retValue = DoToolValidate( toolHandle ) ) ) {
- retValue = (long) false;
- } else {
- retValue = (long) true;
- }
-
- break;
-
- case ftDefaultMsg:
- /* *********************
- Parameter Definitions
- *********************
- p1: Ptr configRecordPtr - gets changed
- p2: Boolean allocate
- p3: short procID - tools refNum
- returns: nothing
- */
-
- #if Debugging == 1
- #if ShowMessage == 1
- DebugStr( "\p FVAL/ftValidateMsg received.;g" );
- #endif
- #endif
-
- if ( noErr == ( retValue = DoToolDefault( (Ptr*) p1,
- (Boolean) p2,
- (short) p3 ) ) ) {
- retValue = (long) false;
- } else {
- retValue = (long) true;
- }
-
- break;
-
- default:
- #if Debugging == 1
- #if DefaultDebug == 1
- DebugStr( "\p FVAL - Did not understand message -- ;g" );
- NumToString( (long) message, tempString );
- DebugStr( tempString );
- #endif
- #endif
-
- break;
- } /* message switch */
-
- return ( retValue );
- } /*FVAL*/
-